home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / DCN-MT31.DMS / in.adf / Install MaxonTWIST < prev    next >
Encoding:
Text File  |  1996-11-11  |  12.8 KB  |  401 lines
  1. ; $VER: MaxonTWIST Install Version 3.1 (11.11.96)
  2. ; Script zum Installieren von MaxonTWIST 3 und TwistORGANIZER auf Festplatte
  3. ; Dipl.-Ing. Michael Giebel (:-{==
  4. ;
  5. ;============================
  6. ;=== Deutsche Erklärungen ===
  7. ;============================
  8. (set #introduction
  9. (cat "Mit diesem Programm wird \n\n MaxonTWIST 3\n\n auf einer "
  10.      "Festplatte installiert.\nDie komplette Installation läuft "
  11.      "nahezu vollständig automatisch ab.\n"
  12.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  13.      "Drücken Sie \"Abbruch\", um die Installation abzubrechen."))
  14. (set #askdir-help
  15. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  16.      "Sie gerne MaxonTWIST installieren möchten. Danach klicken Sie "
  17.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  18.      "Namen des Verzeichnisses an (z.B. WORK:TWIST3). Dann drücken Sie "
  19.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  20.      "Beschreibung der Schalter:\n\n"
  21.      "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  22.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  23.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  24.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  25.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  26.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  27.      "befindete sich ein Schieber, mit dem man sich durch eine "
  28.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  29.      "alle Einträge ausreicht.\n\n"
  30.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  31.      "einer Schublade geklickt wird.\n\n"
  32.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  33.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  34.      "wurde.)\n\n"
  35.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  36.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  37.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  38.      "anzusehen.\n\n"
  39.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  40.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  41.      "angelegt, das Sie soeben betrachten.\n\n"
  42.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  43.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  44.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  45.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  46.      "vorgenommen.\n\n"
  47.      "\"Help...\" zeigt diesen Text."))
  48. (set #help-startup
  49. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  50.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  51.      "bereits beim Systemstart ausführen.\n\n"
  52.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  53.      "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  54.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  55.      "den Schalter \"Skip This Part\"\n\n"
  56.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  57. (set #help-delete
  58. (cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  59.      "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  60.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  61.      "\"Assigns\" gelöscht.\n\n"
  62.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  63.      "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  64.      "Installationsverzeichnis erhalten.\n\n"
  65.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  66. (set #startup-help
  67. (cat "Erklärung der Schalter:\n\n"
  68.      "\"Install for Real\"\n"
  69.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  70.      "\"Pretend to Install\"\n"
  71.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  72.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  73.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  74.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  75.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  76.      "Liste über alle durchgeführten Aktionen.\n\n"
  77.      "\"Printer\"\n"
  78.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  79.      "ausgegeben.\n\n"
  80.      "\"Log File\"\n"
  81.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  82.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  83.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  84.      "\"None\"\n"
  85.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  86. (set #no-inst
  87. (cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
  88.      "nötigsten MaxonTWIST-Dateien zu kopieren\n\n"
  89.      "!!! Die Installation wird abgebrochen !!!"))
  90. (set #no-ram
  91. (cat "\nDer Speicherplatz Ihres Computers reicht nicht aus, um "
  92.      "MaxonTWIST zu installieren und zu betreiben!\n\n"
  93.      "!!! Die Installation wird abgebrochen !!!"))
  94. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  95. (set #COPYFILES (cat "\nKopiere Dateien!\n"))
  96. (set #COPVERZ
  97. (cat "Bitte wählen Sie das Verzeichnis, in das das\nTWIST-Programm installiert werden soll!\n"
  98.      "Ein Verzeichnis z.B. \"MaxonTWIST\" muß evtl. erzeugt werden!"))
  99. (set #TWDEFAULTS (cat "\n Kopiere die Default-Icons!\n"))
  100. (set #TWPROGRAMM (cat "\n Kopiere das TWIST Hauptprogramm!\n"))
  101. (set #TWUTIL (cat "\n Kopiere Icons und ARexx-Skripte!\n"))
  102. (set #TWSONSTIGES (cat "\n Kopiere Zusatzdateien!\n"))
  103. (set #TWDEMOS (cat "\nEntpacke die Beispiele nach\n\n"))
  104. (set #TWFONTS (cat "\nEntpacke die Zeichensätze nach\n\n"))
  105. (set #TWICONS (cat "\nEntpacke zusätzliche Piktogramme nach\n\n"))
  106. (set #TWORGA  (cat "\nEntpacke die Organizer-Daten nach\n\n"))
  107.  
  108. ;=================
  109. ;=== Variablen ===
  110. ;=================
  111.  
  112. (set @abort-button "Abbruch")
  113. (set @language "Deutsch")
  114.  
  115. (set Disk1 "MaxonTWIST3-1")
  116. (set Disk2 "MaxonTWIST3-2")
  117. (set source-lha "MaxonTWIST3-1:c/LHX")
  118. (set dest-lha "RAM:LHX")
  119.  
  120. ;=================
  121. ;===    MAIN   ===
  122. ;=================
  123.  
  124. (complete 0)
  125. (message #introduction)
  126. (welcome)
  127.  
  128. ; Verzeichnis aussuchen
  129. ;----------------------
  130. (set @default-dest
  131.     (askdir
  132.         (prompt #COPVERZ)
  133.         (help
  134.             "Sie wählen hier das Verzeichnis aus, in das MaxonTWIST und die Zusatzdateien "
  135.             "kopiert werden sollen. Eine Schublade wird NICHT automatisch erzeugt. Ein "
  136.             "separates Unterverzeichnis müssen Sie \"von Hand\" über den Schalter \"Make "
  137.             "New Drawer\" erzeugen.\n\n"
  138.             #askdir-help)
  139.         (default "TWIST:")
  140.     )
  141. )
  142. (complete 1)
  143.  
  144. ; nach Installationsdiskette fragen
  145. ;----------------------------------
  146. (askdisk
  147.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTWIST3-1\" ein!")
  148.     (help "\nAuf Diskette 1 befindet sich das Hauptprogramm!")
  149.     (dest Disk1)
  150. )
  151. (complete 3)
  152.  
  153. ; LHX kopieren
  154. ;-------------
  155. (copyfiles
  156.     (prompt "Kopiere LHX in die RAM-Disk !")
  157.     (help
  158.         "Der Archivierer wird benötigt zum Entpacken zweier Beispieldatenbanken.\n\n"
  159.         @copyfiles-help)
  160.     (source source-lha)
  161.     (dest "RAM:")
  162.     (files)
  163.     (confirm)
  164.     (safe)
  165. )
  166. (complete 4)
  167.  
  168. ; TWIST3, TWIST3.info und TWIST.inf kopieren
  169. ;-------------------------------------------
  170. (copyfiles
  171.     (prompt "Kopiere das Programm \"MaxonTWIST3\" !")
  172.     (help
  173.         "Es werden das Hauptprogramm, sowie die Voreinstellungsdatei kopiert.\n\n"
  174.         @copyfiles-help)
  175.     (source "MaxonTWIST3-1:")
  176.     (dest @default-dest)
  177.     (pattern "TWIST#?")
  178.     (files)
  179.     (infos)
  180.     (confirm)
  181. )
  182. (complete 27)
  183.  
  184. ; SORTING.dat kopieren
  185. ;---------------------
  186. (copyfiles
  187.     (prompt "Kopiere die Datei \"sorting.dat\" !")
  188.     (help    "Die Datei \"sorting.dat\" enthält Informationen über die Reihenfolge, in der "
  189.             "MaxonTWIST3 Daten sortieren soll.\n\n"
  190.             @copyfiles-help)
  191.     (source "MaxonTWIST3-1:")
  192.     (dest @default-dest)
  193.     (pattern "sorting.dat")
  194.     (files)
  195.     (confirm)
  196. )
  197. (complete 28)
  198.  
  199. ; Liesmich und Liesmich.info kopieren
  200. ;------------------------------------
  201. (copyfiles
  202.     (prompt "Kopiere die Datei \"Liesmich\" !")
  203.     (help
  204.         "In der Datei \"Liesmich\" stehen WICHTIGE Informationen über Änderungen im Programm "
  205.         "gegenüber dem Handbuch.\n\nLesen Sie diese Datei unbedingt!\n\n"
  206.         @copyfiles-help)
  207.     (source "MaxonTWIST3-1:")
  208.     (dest @default-dest)
  209.     (pattern "Liesmic#?")
  210.     (files)
  211.     (infos)
  212.     (confirm)
  213. )
  214. (complete 29)
  215.  
  216. ; Inhalt und Inhalt.info kopieren
  217. ;--------------------------------
  218. (copyfiles
  219.     (prompt "Kopiere die Datei \"Inhalt\" !")
  220.     (help
  221.         "In der Datei \"Inhalt\" stehen Informationen zur Installation, dem Support, sowie "
  222.         "zum Urheberrechtsschutz\n\n"
  223.         @copyfiles-help)
  224.     (source "MaxonTWIST3-1:")
  225.     (dest @default-dest)
  226.     (pattern "Inhal#?")
  227.     (files)
  228.     (infos)
  229.     (confirm)
  230. )
  231. (complete 30)
  232.  
  233. ; Assigns und Assigns.info kopieren
  234. ;----------------------------------
  235. (copyfiles
  236.     (prompt "Kopiere die Datei \"Assigns\" !")
  237.     (help
  238.         "Die Datei \"Assigns\" wird benötigt, wenn Sie die für MaxonTWIST unbedingt "
  239.         "erforderlichen Zuweisungen nicht automatisch am Ende der Installation in der "
  240.         "Datei \"user-startup\" vornehmen lassen wollen.\n\n"
  241.         "Sie MÜSSEN dann jedes Mal vor dem Start von MaxonTWIST diese Datei starten!\n\n"
  242.         @copyfiles-help)
  243.     (source "MaxonTWIST3-1:")
  244.     (dest @default-dest)
  245.     (pattern "Assign#?")
  246.     (files)
  247.     (infos)
  248.     (confirm)
  249. )
  250. (complete 31)
  251.  
  252. ; RCT-LIB kopieren
  253. ;-----------------
  254. (copylib
  255.     (prompt "Kopiere die RCT-LIBRARY !")
  256.     (help
  257.         "Die RCT-Library enthält einen Standard-Filerequester "
  258.         "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  259.         "installiert haben, dann ist hier eine neuere Version.\n\n"
  260.         @copyfiles-help)
  261.     (source "MaxonTWIST3-1:libs/rct.library")
  262.     (dest "Libs:")
  263.     (confirm)
  264. )
  265. (complete 35)
  266.  
  267. ; Icons kopieren
  268. ;---------------
  269. (if
  270.     (= (exists (tackon @default-dest "Icons")) 0)
  271.     (makedir (tackon @default-dest "Icons")
  272.         (safe)
  273.         (infos)
  274.     )
  275. )
  276. (copyfiles
  277.     (prompt "Kopiere die MaxonTWIST-Piktogramme !")
  278.     (help
  279.         "Die Piktogramme im Verzeichnis \"Icons\" im MaxonTWIST-Ordner werden "
  280.         "verwendet z.B. für die Icons auf dem MaxonTWIST-Desktop. Aber auch in "
  281.         "einer Datensatzmaske können sie zum Einsatz kommen.\n\n"
  282.         @copyfiles-help)
  283.     (source "MaxonTWIST3-1:Icons")
  284.     (dest (tackon @default-dest "Icons"))
  285.     (all)
  286.     (infos)
  287.     (confirm)
  288. )
  289. (complete 39)
  290.  
  291. ; nach Diskette 2 fragen
  292. ;-----------------------
  293. (askdisk
  294.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTWIST3-2\" ein!")
  295.     (help "\nAuf Diskette 2 befinden sich die Beispiele!")
  296.     (dest Disk2)
  297. )
  298. (complete 40)
  299.  
  300. ; ARexx-Scripte entpacken
  301. ;------------------------
  302. (
  303.     (set @Working #TWDEMOS)
  304.     (set @Source "MaxonTWIST3-2:arexx.lha")
  305.     (set @Dest @default-dest)
  306.     (working @Working @Dest)
  307.     (run ("RAM:Lhx x %s \"%s/\"" @Source @Dest))
  308. )
  309. (complete 45)
  310.  
  311. ; Demobeispiele entpacken
  312. ;------------------------
  313. (
  314.     (set @Working #TWDEMOS)
  315.     (set @Source "MaxonTWIST3-2:twistbsp.lha")
  316.     (set @Dest @default-dest)
  317.     (working @Working @Dest)
  318.     (run ("RAM:Lhx x %s \"%s/\"" @Source @Dest))
  319. )
  320. (complete 75)
  321.  
  322. ; Organizer-Fonts entpacken
  323. ;--------------------------
  324. (
  325.     (set @Working #TWFONTS)
  326.     (set @Source "MaxonTWIST3-2:fonts.lha")
  327.     (set @Dest "FONTS:")
  328.     (working @Working @Dest)
  329.     (run ("RAM:Lhx x %s \"%s\"" @Source @Dest))
  330. )
  331. (complete 80)
  332.  
  333. ; Organizer-Icons entpacken
  334. ;--------------------------
  335. (
  336.     (set @Working #TWICONS)
  337.     (set @Source "MaxonTWIST3-2:icons.lha")
  338.     (set @Dest @default-dest)
  339.     (working @Working @Dest)
  340.     (run ("RAM:Lhx x %s \"%s/\"" @Source @Dest))
  341. )
  342. (complete 85)
  343.  
  344. ; Organizer entpacken
  345. ;--------------------
  346. (
  347.     (set @Working #TWORGA)
  348.     (set @Source "MaxonTWIST3-2:organizer.lha")
  349.     (set @Dest @default-dest)
  350.     (working @Working @Dest)
  351.     (run ("RAM:Lhx x %s \"%s/\"" @Source @Dest))
  352. )
  353. (complete 89)
  354.  
  355. ; LHX löschen (no clues)
  356. ;------------
  357. (delete dest-lha
  358.     (optional "force")                            ; auch löschen, wenn schreibgeschützt
  359.     (safe)                                            ; wurde ja auch in jedem Fall kopiert
  360. )
  361. (complete 97)
  362.  
  363. ; STARTUP ändern
  364. ;---------------
  365. (set command1
  366. (cat    "Assign TWIST: \"" @default-dest "\"\nAssign TWISTICON: TWIST:Icons\n"
  367.         "Assign ORGAN: TWIST:Organizer \nAssign ORGANICON: TWISTICON:\n"))
  368. (set command1.txt
  369. (cat    "\n\n\nUm mit dem MaxonTWIST richtig arbeiten zu können, muß eine "
  370.         "Änderung an der User-Startup vorgenommen werden.\n\n"
  371.         command1))
  372.  
  373. (startup "MaxonTWIST.app"
  374.     (prompt command1.txt)
  375.     (help #help-startup)
  376.     (command command1)
  377. )
  378. (complete 98)
  379.  
  380. ; ASSIGNS durchführen (=> sofort startbar)
  381. ;--------------------
  382. (makeassign "TWIST")
  383. (makeassign "TWIST" @default-dest)
  384. (makeassign "TWISTICON")
  385. (makeassign "TWISTICON" "TWIST:Icons")
  386. (makeassign "ORGAN")
  387. (makeassign "ORGAN" "TWIST:Organizer")
  388. (makeassign "ORGANICON")
  389. (makeassign "ORGANICON" "TWISTICON:")
  390. (complete 99)
  391.  
  392. ; FERTIG
  393. ;-------
  394. (message
  395. (cat    "Installation der Datenbank MaxonTWIST 3 beendet.\n"
  396.         "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  397.         "User-Startup eingefügt wurden, holen Sie dies bitte nach.\n\n"
  398.         "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  399.         "MaxonTWIST 3.\n\nViel Erfolg!"))
  400. (complete 100)
  401.